home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / findfi_1 / form4.frm < prev    next >
Text File  |  1999-05-21  |  2KB  |  54 lines
  1. VERSION 5.00
  2. Begin VB.Form Form4 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00000000&
  5.    BorderStyle     =   1  'Fixed Single
  6.    Caption         =   "3D Stars"
  7.    ClientHeight    =   1635
  8.    ClientLeft      =   45
  9.    ClientTop       =   330
  10.    ClientWidth     =   3390
  11.    ForeColor       =   &H00FFFFFF&
  12.    Icon            =   "Form4.frx":0000
  13.    LinkTopic       =   "Form4"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   1635
  17.    ScaleWidth      =   3390
  18.    StartUpPosition =   2  'CenterScreen
  19.    Begin VB.Timer Timer1 
  20.       Interval        =   1
  21.       Left            =   1080
  22.       Top             =   1200
  23.    End
  24. End
  25. Attribute VB_Name = "Form4"
  26. Attribute VB_GlobalNameSpace = False
  27. Attribute VB_Creatable = False
  28. Attribute VB_PredeclaredId = True
  29. Attribute VB_Exposed = False
  30.           Dim X(500), Y(500), pace(500), size(500) As Integer
  31.  
  32.           Private Sub Form_Activate()
  33.           Randomize
  34.           For I = 1 To 50
  35.           X1 = Int(Form1.Width * Rnd)
  36.           Y1 = Int(Form1.Height * Rnd)
  37.           pace1 = Int(500 - (Int(Rnd * 499)))
  38.           size1 = 16 * Rnd
  39.           X(I) = X1
  40.           Y(I) = Y1
  41.           pace(I) = pace1
  42.           size(I) = size1
  43.           Next
  44.           End Sub
  45.  
  46.           Private Sub Timer1_Timer()
  47.           For I = 1 To 50
  48.           Circle (X(I), Y(I)), size(I), BackColor
  49.           Y(I) = Y(I) + pace(I)
  50.           If Y(I) >= Form1.Height Then Y(I) = 0: X(I) = Int(Form1.Width * Rnd)
  51.           Circle (X(I), Y(I)), size(I)
  52.           Next
  53.           End Sub
  54.